1 POKE53280,0:POKE53281,0:PRINT"[142][147]";:GOSUB1000
3 DIML$(9,6):FORI=0TO9:FORJ=0TO6:READL$(I,J):NEXT:NEXT
5 N=RND(-TI)
9 INPUT"[154]LOWEST NUMBER IN THE DRAW";LN
10 INPUT"HIGHEST NUMBER IN THE DRAW";HN:IFLN>HNTHEN9
11 IFHN>99999THENPRINT"[159]I CAN'T DISPLAY SIX-DIGIT NUMBERS.":END
20 PRINT"[147]":N=INT(LN+RND(1)*(HN-LN+1))
30 N$=MID$(STR$(N),2):L=LEN(N$):T=40
40 FORI=LTO1STEP-1:PRINT"":D=VAL(MID$(N$,I,1)):T=T-8
45 FORJ=0TO6
50 PRINTTAB(T);L$(D,J)
60 NEXT:FORJ=1TO1000:NEXT:NEXT
65 PRINT"[154]PRESS [167]F5[146][157][157][145][164][164][165] TO CLEAR SCREEN.
66 [161]G$:[139]G$[179][177]"READ"[167]66
67 [153]"LOADPRESS THENF7WAITCMDCMDONTOTOFN FOR NEXT NUMBER.
70 GETG$:IFG$<>"[136]"THEN70
88 PRINT"[147]":GOTO20
90 DATA" [169]  [223]"
91 DATA"[169][146][169]  [223][223]"
92 DATA" [146]     "
93 DATA" [146]     "
94 DATA" [146]     "
95 DATA"[223][223][146]  [169][146][169]"
96 DATA" [223][163][163][146][169]"
100 DATA"  [169] "
101 DATA"    "
102 DATA"    "
103 DATA"    "
104 DATA"    "
105 DATA"    "
106 DATA"  [184] [184]"
200 DATA"[169][163][163][163][163][223]"
201 DATA" [146]   [169][146][169]"
202 DATA"   [169][146][169]"
203 DATA"  [169][146][169]"
204 DATA" [169][146][169]"
205 DATA"[169][146][169]"
206 DATA" [183][183][183][183][183]"
300 DATA"[169][164][164][164][164][223]"
301 DATA" [146]     "
302 DATA"    [169][146][169]"
303 DATA"    [167]"
304 DATA"    [223][223]"
305 DATA" [146]     "
306 DATA"[223][163][163][163][163][146][169]"
400 DATA" "
401 DATA"  "
402 DATA"  "
403 DATA"      "
404 DATA"    "
405 DATA"    "
406 DATA"    "
500 DATA"      "
501 DATA" "
502 DATA" "
503 DATA"     [223]"
504 DATA"      "
505 DATA"      "
506 DATA"     [146][169]"
600 DATA"[169]    "
601 DATA" "
602 DATA" "
603 DATA"     [223]"
604 DATA"  "
605 DATA"  "
606 DATA"[223]    [146][169]"
700 DATA" [175][175][175][175] "
701 DATA"[169][146][169]"
702 DATA"[169][146][169]"
703 DATA"[169][146][169]"
704 DATA"[169][146][169]"
705 DATA"[169][146][169]"
706 DATA"[169]"
800 DATA"[169]    [223]"
801 DATA"  "
802 DATA"[223][223][169][146][169]"
803 DATA"    [167]"
804 DATA"[169][146][169][223][223]"
805 DATA"  "
806 DATA"[223]    [146][169]"
900 DATA"[169]    [223]"
901 DATA"  "
902 DATA"  "
903 DATA"[223]     "
904 DATA"      "
905 DATA"      "
906 DATA"      "
1000 PRINT,"[157][157][154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
1010 [153],"CMDCMD(null)OPENRANDOM NUMBER DISPLAYCONT(null)
1020 PRINT,"[157][157][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
1030 [153],"OPEN      BY
1040 PRINT,"[154]STEVEN DARNOLD
1050 [153],"P.O. BOX 201
1060 PRINT,"ALEXANDRA, NEW ZEALAND
1070 [153]"OPENTHIS PROGRAM SELECTS AND DISPLAYS RANDOM
1080 PRINT"NUMBERS BETWEEN THE LIMITS YOU SPECIFY.
1100 [142]